home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / form01.clssa < prev    next >
Text File  |  1995-01-20  |  1KB  |  50 lines
  1. /***********************************************************************
  2.   GADGET: "Format" "3" AUTO TYP: "?"
  3.  
  4.   $DAT >>Form01.clssa<<       27.10.1992 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6.  
  7.   Erzeugt eine Animkopie, deren Format zuvor bestimmbar ist.
  8. ************************************************************************/
  9.  
  10. Options Results
  11. Address clariSSA
  12.  
  13.   FailAt 99
  14.   AltFail=RESULT
  15.  
  16.   DO FOREVER
  17.     Anims=""
  18.     GetAnimInfo Source_A
  19.     IF RESULT~='' THEN Anims=Anims||" Source_A "
  20.     GetAnimInfo Source_B
  21.     IF RESULT~='' THEN Anims=Anims||" Source_B "
  22.     GetAnimInfo Source_C
  23.     IF RESULT~='' THEN Anims=Anims||" Source_C "
  24.     GetAnimInfo Source_D
  25.     IF RESULT~='' THEN Anims=Anims||" Source_D "
  26.  
  27.     IF Anims~='' THEN DO
  28.       SelectAnim Anims "TITLE 'Wählen Sie eine Source-Animtion@für die Formatumwandlung aus.' REQ"
  29.       IF rc~=0 THEN LEAVE
  30.       WAnim=RESULT
  31.       SelectAnim WAnim
  32.  
  33.       GetAnimInfo
  34.       PARSE VAR RESULT . "FORMAT" format "VIEWMODE" viewmode "FRAMES" Max .
  35.  
  36.       CloseAnim MASTER
  37.       OpenAnim MASTER REQ  "FORMAT" format "VIEWMODE" viewmode
  38.       IF RC~=0 THEN LEAVE
  39.       SelectAnim WAnim
  40.       Record AREA
  41.  
  42.     END
  43.     ELSE Message '"Keine Source-Animation vorhanden!"'
  44.  
  45.     LEAVE
  46.   END
  47.  
  48.   FailAt AltFail
  49. exit
  50.